	PRO JMOV,dir,Nproc,Nt
; Grafica una pelicula de tvscl de Jz
; Nt corresponde al tiempo final (formato: numero)
leer_input,dir,N,nu,eta,eps,epse,dt,nstep,nstg,nstdat,nstk,nstp
jjj=dblarr(N,N,Nt)
loadct,3
xinteranimate,set=[N,N,Nt],/showload
for i=0,Nt-1 do begin
time='000'+string(i,format='(i1)')
if(i gt 9)then time='00'+string(i,format='(i2)')
leer,dir,time,Nproc,a,f,b,u,jj,w
jjj(*,*,i)=jj
endfor
jmx=max(jjj) & jmn=min(jjj)
jjj(0,0,*)=jmx
jjj(0,1,*)=jmn
for i=0,Nt-1 do begin
window,13,xs=N,ys=N
tvscl,jjj(*,*,i)
xinteranimate,frame=i,window=13
endfor
xinteranimate
end
